home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok01 / fish / fishdata.def < prev    next >
Text File  |  1993-11-04  |  2KB  |  38 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*       This File includes the Fish' Imagery and all needed Bob,          *)
  4. (*                BSprite and AnimComp- Structures !!!                     *)
  5. (*                                                                         *)
  6. (*  Ported to MODULA-2 by Fridtjof Siebert.                                *)
  7. (*        Thanks to Matt Dillon for his wonderful Editor DME, without      *)
  8. (*           this wouldn't have been possible !!!                          *)
  9. (*                                                                         *)
  10. (*-------------------------------------------------------------------------*)
  11.  
  12. DEFINITION MODULE FishData;
  13.  
  14. FROM Graphics IMPORT AnimComp,Bob,VSprite,AnimOb;
  15.  
  16. TYPE
  17.   FishData = ARRAY[0..377] OF CARDINAL;
  18.  
  19. VAR
  20.   color: ARRAY[0..7] OF INTEGER;
  21.   image1,image2,image3,image4,image5,image6,image7,image8,image9,
  22.   FishDataPtr: POINTER TO FishData;
  23.   fish1Comp ,fish2Comp ,fish3Comp ,fish4Comp ,fish5Comp ,fish6Comp,
  24.   fish7Comp ,fish8Comp ,fish9Comp ,fish10Comp,fish11Comp,fish12Comp,
  25.   fish13Comp,fish14Comp,fish15Comp,fish16Comp,fish17Comp: AnimComp;
  26.   fish1Bob, fish2Bob, fish3Bob, fish4Bob, fish5Bob,fish6Bob,fish7Bob,
  27.   fish8Bob,fish9Bob,fish10Bob,fish11Bob,fish12Bob,fish13Bob,fish14Bob,
  28.   fish15Bob,fish16Bob,fish17Bob: Bob;
  29.   fish1Sprite, fish2Sprite, fish3Sprite, fish4Sprite, fish5Sprite,
  30.   fish6Sprite,fish7Sprite,fish8Sprite,fish9Sprite, fish10Sprite,
  31.   fish11Sprite,fish12Sprite,fish13Sprite,fish14Sprite,fish15Sprite,
  32.   fish16Sprite,fish17Sprite: VSprite;
  33.  
  34. (* all these Variables are initialized by Implementation !!! *)
  35.  
  36. END FishData.
  37.  
  38.